home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / programming / e / lsestuff / dbm1d_test.e < prev    next >
Text File  |  1999-11-29  |  635b  |  33 lines
  1. MODULE '*dbmapX'
  2.  
  3.  
  4. PROC main() HANDLE
  5.    DEF a
  6.    DEF dbm:PTR TO dbmapX
  7.  
  8.    NEW dbm.dbmapX()
  9.  
  10.    SystemTagList('date', NIL)
  11.    FOR a := 0 TO 39999
  12.       dbm.set(a)
  13.    ENDFOR
  14.    SystemTagList('date', NIL)
  15.    FOR a := 0 TO 39999
  16.       dbm.set(a)
  17.    ENDFOR
  18.    SystemTagList('date', NIL)
  19.    FOR a := 0 TO 39999
  20.       IF dbm.get(a) <> 1 THEN Raise(1)
  21.    ENDFOR
  22.    SystemTagList('date', NIL)
  23.    FOR a := 0 TO 39999
  24.       dbm.clr(a)
  25.    ENDFOR
  26.    SystemTagList('date', NIL)
  27.    WriteF('\d\n', dbm.count())
  28.    WriteF('max=\d min=\d\n', dbm.getMax(), dbm.getMin())
  29. EXCEPT DO
  30.    IF exception THEN WriteF('er : \d\n', exception)
  31.    END dbm
  32. ENDPROC
  33.